home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-170 dbase 10 for windows / 1.ima / SAMPLES.PAK / ANIMALS.PRG < prev    next >
Encoding:
Text File  |  1993-07-26  |  2.5 KB  |  121 lines
  1. *
  2. * Program:    Animals.Prg
  3. *
  4. * Revision:   dBASE for Windows Alpha, x66
  5. *
  6. * Copyright (c) 1993 Borland International.  All Rights Reserved.
  7. *
  8.  
  9.  
  10. SET TALK OFF
  11. SET SAFETY OFF
  12. SET ESCAPE OFF
  13. CLEAR
  14.  
  15. CLEAR ALL
  16. USE Animals
  17. NumRecords = RECCOUNT()
  18. GOTO TOP
  19.  
  20. *  Define fonts
  21. DEFINE FONT BigFont HEIGHT 20 WIDTH 22 TYPE "Roman"
  22. DEFINE FONT Modern  HEIGHT 11 WIDTH 7  TYPE "Arial" BOLD
  23.  
  24. *  Define main window and it's objects
  25. DEFINE WINDOW WinAnimal OF APPLICATION FROM 3,2 TO 25,70;
  26.    TITLE 'Animals of the World';
  27.    COLOR W+/B;
  28.    SIZEABLE
  29.  
  30. DEFINE TEXT Heading OF WinAnimal AT 1,7 ;
  31.    PROMPT "Animals of the World" ;
  32.    FONT BigFont ;
  33.    COLOR G+/R
  34.  
  35. DEFINE PUSHBUTTON Next OF WinAnimal AT 14,22 ;
  36.    PROMPT '  Next Animal  '
  37. DEFINE PUSHBUTTON Exit OF WinAnimal AT 17,17 ;
  38.    PROMPT ' Exit '
  39. DEFINE PUSHBUTTON Prev OF WinAnimal AT 14,3 ;
  40.    PROMPT 'Previous Animal'
  41.  
  42. DEFINE IMAGE PictAnimal OF WinAnimal ;
  43.    FROM 6,42 TO 19,67 MEMO BMP
  44.  
  45. ON SELECTION WINDOW WinAnimal DO OnSelAnimal
  46.  
  47. *  Display desciptive text
  48. DO StartText
  49. DO DisplayText
  50.  
  51. *  Activate the modal window
  52. READMODAL('WinAnimal')
  53.  
  54. *  Reset and go home
  55. CLEAR ALL
  56. RETURN
  57.  
  58.  
  59. ********************************************************
  60. PROCEDURE OnSelAnimal
  61. WinControl=ACTIVECONTROL()
  62.  
  63. DO CASE
  64. CASE WinControl="NEXT"
  65.    IF RECNO() = NumRecords
  66.       ?? CHR(7)
  67.    ELSE
  68.       SKIP
  69.    ENDIF
  70.    DO DisplayText
  71. CASE WinControl="PREV"
  72.    IF RECNO() = 1
  73.       ?? CHR(7)
  74.    ELSE
  75.       SKIP -1
  76.    ENDIF
  77.    DO DisplayText
  78. CASE WinControl="EXIT"
  79.    DEACTIVATE WINDOW WinAnimal
  80. ENDCASE
  81. RETURN
  82.  
  83.  
  84. PROCEDURE StartText
  85. DEFINE box BoxAnimal OF WinAnimal FROM 5,3 TO 11,40 ;
  86.    TITLE "Description"
  87. DEFINE TEXT Name OF WinAnimal AT 7,4 ;
  88.    PROMPT "Animal Name: " ;
  89.    FONT Modern ;
  90.    COLOR BR+/B
  91. DEFINE TEXT Height OF WinAnimal AT 8,4 ;
  92.    PROMPT "Height: " ;
  93.    FONT Modern ;
  94.    COLOR BR+/B
  95. DEFINE TEXT Weight OF WinAnimal AT 9,4 ;
  96.    PROMPT "Weight: " ;
  97.    FONT Modern ;
  98.    COLOR BR+/B
  99. DEFINE TEXT Found OF WinAnimal AT 10,4;
  100.    PROMPT "Found in: " ;
  101.    FONT Modern ;
  102.    COLOR BR+/B
  103.  
  104. RETURN
  105.  
  106. PROCEDURE DisplayText
  107. DEFINE TEXT Fname OF WinAnimal AT 7,17 ;
  108.    PROMPT Animals->Name ;
  109.    COLOR BG+/B
  110. DEFINE TEXT Fsize OF WinAnimal AT 8,17 ;
  111.    PROMPT LTRIM(STR(Animals->Size)) + SPACE(5);
  112.    COLOR BG+/B
  113. DEFINE TEXT Fweight OF WinAnimal AT 9,17 ;
  114.    PROMPT LTRIM(STR(Animals->Weight,5)) + SPACE(5) ;
  115.    COLOR BG+/B
  116. DEFINE TEXT Farea OF WinAnimal AT 10,17 ;
  117.    PROMPT Animals->Area ;
  118.    COLOR BG+/B
  119. RETURN
  120. * EOF ANIMALS.PRG
  121.